home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 12 C64 Telecom / CS-D64.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.1 KB  |  51 lines
  1. 10 POKE55,.:POKE56,17:POKE157,128:IFD=.THENCLR:F$="COMSEN.O":X$=".BAK"
  2. 15 Z$=CHR$(.):M$=CHR$(13):Q$=CHR$(34):IFD=.THENGOSUB900:PRINT"[147][142]":GOTO25
  3. 20 GOTO80
  4. 25 PRINT"WITH ";Q$;"COMMON SENSE";Q$;" DISK IN DRIVE,"
  5. 30 PRINT"ENTER DRIVE'S DEVICE NUMBER (4 TO 30)."
  6. 35 PRINT"(ENTER 0 TO EXIT.)"
  7. 40 PRINT"  8[145]":INPUTD:IFD=.THEN200
  8. 45 IFD<4ORD>30THENPRINT"[147]ILLEGAL DEVICE NUMBER":GOTO25
  9. 50 P=PEEK(45)+256*PEEK(46):POKE183,8:POKE187,PEEK(P+3):POKE188,PEEK(P+4)
  10. 55 POKE184,8:POKE185,.:POKE186,D:SYS65472
  11. 60 CLOSE8:IFPEEK(144)THENPRINT"[147]?DEVICE";D;"[157] NOT PRESENT":GOTO25
  12. 65 OPEN15,D,15:GOSUB500:IFATHENCLOSE15:GOTO25
  13. 70 PRINT#15,"R0:";F$;X$;"=";F$
  14. 75 PRINT"ONE MOMENT PLEASE...":LOADF$+X$,8,8
  15. 80 IFPEEK(174)+256*PEEK(175)=20474THEN105
  16. 85 PRINT"[147]";F$;" CORRUPTED, OR NOT REV 1.0":POKE45,PAND255:POKE46,P/256:CLR
  17. 90 PRINT"PRESS RETURN."
  18. 95 GETA$:IFA$<>CHR$(13)THEN95
  19. 100 GOTO10
  20. 105 POKE11028,250:POKE11029,79:FORI=.TO244:POKE20474+I,PEEK(3967+I):NEXT
  21. 110 POKE155,.:POKE156,17:POKE780,155:POKE781,235:POKE782,80
  22. 115 POKE183,8:POKE187,PEEK(P+3):POKE188,PEEK(P+4):SYS65496:PRINT:PRINT"...DONE"
  23. 200 POKE56,160:CLOSE15:END
  24. 500 INPUT#15,A,B$,C,Z:IFA=0THENRETURN
  25. 510 PRINT:PRINTA:PRINT:PRINTB$:PRINT:PRINTC,Z:PRINT:RETURN
  26. 900 PRINT"[147]      *** [198][207][210] [212][200][197] [195][207][205][205][207][196][207][210][197]-64 ***"
  27. 905 PRINT"    [201]F YOU HAVE THE ";Q$;"[195]OMMON [211]ENSE";Q$
  28. 910 PRINT"TERMINAL PROGRAM ([210][197][214] 1.0), THIS"
  29. 915 PRINT"PROGRAM WILL MODIFY IT TO PROVIDE AN"
  30. 920 PRINT"ADDITIONAL FEATURE.  [217]OU WILL BE ABLE TO";
  31. 925 PRINT"D    
  32. 16719 D ";Q$;"[196]64";Q$;" FILES (USING [216]MODEM)"
  33. 930 PRINT"DIRECTLY TO A DISK IN A 1541 DRIVE."
  34. 935 PRINT"[212]HOSE FILES ARE 1541 DISK IMAGES, USED"
  35. 940 PRINT"BY [205]IHA [208]ETERNEL'S [195]-64 EMULATOR FOR"
  36. 945 PRINT"[205][211]-[196][207][211] COMPUTERS, ";Q$;"[195]64[211]";Q$;".  [212]HIS"
  37. 950 PRINT"PROGRAM IS FOR THOSE WHO WANT TO USE THE";
  38. 955 PRINT"174,848-BYTE FILES WITH [195]-64'S."
  39. 960 PRINT"    [215]ITH ";Q$;"[195]OMMON [211]ENSE";Q$;" RUNNING, PRESS"
  40. 965 PRINT"COMKEY-X, AND THEN PRESS R (RECEIVE) AND";
  41. 970 PRINT"THEN P (PROGRAM).  [212]HEN, AT THE FILENAME";
  42. 975 PRINT"PROMPT, USE ";Q$;"#";Q$;" FOR A FIL    
  43. 11845   [212]HAT"
  44. 980 PRINT"SHOULD DO THE JOB."
  45. 985 PRINT"    [212]HE MAIN PROGRAM (";Q$;"[195][207][205][211][197][206].[207]";Q$;") IS"
  46. 990 PRINT"MODIFIED, AND THE ORIGINAL IS BACKED UP"
  47. 995 PRINT"IN A FILE NAMED ";Q$;"[195][207][205][211][197][206].[207].[194][193][203]";Q$;"."
  48. 997 PRINT"             [[208][210][197][211][211] [210][197][212][213][210][206]][146]";
  49. 998 GETA$:IFA$=M$THENRETURN
  50. 999 GOTO998
  51.